How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/AZTECW.DIR/01711_Script_EOT

Text File | 1995-09-12 | 6KB | 239 lines

global gQuest, gBeenClicked

on AEOTRollovers
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if the mousecast = the castnum of sprite 9 or rollover(8) or rollover(11) then
      repeat while the mousecast = the castnum of sprite 9 or rollover(8) or rollover(11)
        AztecCursor
        puppetsprite 12, true
        set the locH of sprite 12 to 435
        set the locV of sprite 12 to 251
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              EOTAnimate1
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 12 to 935
      updatestage
      puppetsprite 12, false
    else
      if rollover(6) or rollover(7) then
        repeat while rollover(6) or rollover(7)
          AztecCursor
          puppetsprite 14, true
          set the locH of sprite 14 to 333
          set the locV of sprite 14 to 239
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              repeat while gBeenClicked = 1
                EOTAnimate2
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 14 to 933
        updatestage
        puppetsprite 14, false
      else
        if rollover(10) then
          repeat while rollover(10)
            AztecCursor
            puppetsprite 13, true
            set the locH of sprite 13 to 365
            set the locV of sprite 13 to 266
            updatestage
            if the mousedown then
              set GBeenClicked = 1
            else
              if gBeenClicked = 1 then
                repeat while gBeenClicked = 1
                  AnimateLoop 10, 1007, 5, 0, 1
                end repeat
              end if
            end if
          end repeat
          set the locH of sprite 13 to 965
          puppetsprite 13, false
          updatestage
        else
          if rollover(41) then
            HandCursor
          else
            if rollover(42) then
              HandCursor
            else
              ArrowCursor
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on EOTAnimate1
  ArrowCursor
  set gAnimationcast1 = 1027
  set gAnimationcast2 = 1013
  set gAnimationcast3 = 1033
  set count = 0
  updatestage
  puppetsound "SA402002.AIF (HORSE WHIN)"
  repeat while count < 2 and (the mouseUp)

    set the castnum of sprite 9 = gAnimationcast2 + 1
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gAnimationcast1 + 1
    set the castnum of sprite 9 = gAnimationcast2 + 2
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gAnimationcast1 + 2
    set the castnum of sprite 9 = gAnimationcast2 + 3
    set the castnum of sprite 11 = gAnimationcast3 + 1
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gAnimationcast1 + 3
    set the castnum of sprite 9 = gAnimationcast2 + 4
    set the castnum of sprite 11 = gAnimationcast3 + 2
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gAnimationcast1 + 4
    set the castnum of sprite 9 = gAnimationcast2 + 3
    set the castnum of sprite 11 = gAnimationcast3 + 3
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 9 = gAnimationcast2 + 2
    set the castnum of sprite 11 = gAnimationcast3 + 2
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 9 = gAnimationcast2 + 1
    set the castnum of sprite 11 = gAnimationcast3 + 1
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 9 = gAnimationcast2
    set the castnum of sprite 11 = gAnimationcast3
    updatestage
    wait .1
    if (the mousedown) then
      exit repeat
    end if

    set count = count + 1
  end repeat
  set the castnum of sprite 8 = gAnimationcast1
  set the castnum of sprite 9 = gAnimationcast2
  set the castnum of sprite 11 = gAnimationcast3
  updatestage
  set gBeenClicked = 0
end

on EOTAnimate2
  ArrowCursor
  set gAnimationcast1 = 1019
  set gAnimationcast2 = 1022
  set count = 0
  updatestage
  repeat while count < 2 and (the mouseUp)

    set the castnum of sprite 6 = gAnimationcast1 + 1
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 6 = gAnimationcast1 + 2
    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 6 = gAnimationcast1 + 1
    set the castnum of sprite 7 = gAnimationcast2 + 2
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 6 = gAnimationcast1
    set the castnum of sprite 7 = gAnimationcast2 + 3
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 7 = gAnimationcast2 + 2
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 7 = gAnimationcast2
    updatestage
    wait .4
    if (the mousedown) then
      exit repeat
    end if

    set count = count + 1
  end repeat
  set the castnum of sprite 6 = gAnimationcast1
  set the castnum of sprite 7 = gAnimationcast2
  updatestage
  set gBeenClicked = 0
end